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ALPHABETICAL SORTING ROUTINE 
INSTRUCTIONS 

This routine must be loaded into ram from Hex 
1000-1 19F. It starts at 1000 and displays a menu for 
input, list or order. When you choose input(l) it shows 
no response, but is ready to accept names, last name 
first comma first initial period then second initial 
period. The input area starts at Hex 1200 to 3000. The 
author of this routine is unknown, and they left no way 
to correct for spelling errors. The escape convention 
is the *, which brings you back to the menu. The sort 
is fast because of machine language and the routine 
displays the last memory location used in Hex. It might 
be interesting to play with it or use some of the 
concepts in your own routine. 
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0001 RBI THE ITBI IDENTIFICATION NUHBER IS ACTUALLY THE SECTOR NUHBER 

0002 REM THIS SOFTWARE KEEPS ALL INFORMATION ON THE DISK. IT PULLS IN THE REQUESTED SECTOR 

0003 REN FOR UPDATES AND DUMPS IT BACK TO THE SAKE LOCATION. 

0004 REM PRINTiS STATEMENTS SEND COMMANDS TO THE DISK DRIVER 

0005 REM PAT STATEMENTS LINES 160 it #68 CHANGE OUTPUT FILE TO #1 AND CHANGE IT BACK TO #2. 

0006 REM THE LAST ITEM IS NAMED "END OF FILE" 
0010 GOTO 1000 

0030 PRINT #3. 'ROGER J. SPQTT DDS PA INVENTORY CONTROL "?T$;" »!F$ 
0032 PRINT t3,"I.D.#";TABU0)5"ITEH";TAB<25);"0N HAND";TABi45); "MINIMUM"; 
0034 PRINT #3, TAB<60>? "SUPPLIER CODE";TAB<75);"PRICE/UNIT"iTAB(90)? 
0036 PRINT #3, "LAST ORDERED/AMNT." 
0038 RETURN 

C040 PRINT i3.D;TAB(6>;A$;TAB(25);N;TAB(45);L;TAB<6o;;s; 

0042 PRINT t3»TAB«75);P*;TAB«90)5D$ 
0044 IF A$="END OF FILE" THEN RETURN 
0046 RETURN 

0060 PAT 8631B7273739 

0061 PRINT #5."P 1 ";D;" 0" 

0062 OPEN 0"INTORY" 

JEHKIKJs BY ROGER J.SPOTT 

0066 TURITE P$,D* 

0067 CLOSE 

0068 PAT 8632B727373? 

0069 RETURN 

0070 OPEN I "INTORY" 
0072 TREAD D,A$ 
0074 TREAD N.L.S 
0076 TREAD P$,D$ 
0078 RETURN 

0200 REM CHANGE DATA 

0201 HOME 

0202 INPUT "I.D.# TO CHANGE {9999=RETURN)",D 

0203 IF D=9999 THEN RETURN 

0204 PRINT #5,"P 1 "!D5" 0" 

0205 GOSUB 70 
0210 HOME 
0215 PRINT A$ 
0220 PRINT D;A$ 

0225 PRINT n;ljs;p$;' "?D* 

0240 PRINT "ITEMS TO CHANGE" 

0241 PRINT "LITEM NAME" 

0242 PRINT "2.0N HAND" 

0243 PRINT •3.MINIMUM" 

0244 PRINT "4.SUPPLIER CODE" 

0245 PRINT "5.PRICE/UNIT" 

0246 PRINT "6.LAST ORDER/AMNT" 

0247 PRINT "7. BUMP TO DISK" 
0250 INPUT "CHOICE'.X 

0255 ON X GOSUB 510,520.530.540.550,560,60 

0260 IF X=5 GOSUB 560 

0265 IF X<7 GOTO 210 

0290 GOTO 201 

0300 REM LIST DATA 

0X1 REM SET DISK TO SECTOR 10 

0305 PRINT #5,"P 1 0" 

0306 GOSUB 30 

0307 PRINT 13 
0330 GOSUB 70 

0337 GOSUB 40 

0338 GOTO 330 



0400 REM ITEMS TO ORDER 

0401 REM SET DISK TO SECTOR 10 
0405 PRINT #5,"P 1 0" 

0410 PRINT », "ITEMS TO ORDER" 

0415 PRINT #3 

0420 GOSUB 30 

0430GOSUB70 

0435 IF A*="END OF FILE" THEN RETURN 

0440 IF NM. GOTO 430 

0450 GOSUB 40 

0460 GOTO 430 

0500 INPUT "SECTORr.D 

0501 RETURN 

0510 INPUT "ITEM NAME",A* 

0511 RETURN 

0520 INPUT "ON HAHD",N 

0521 RETURN 

0530 INPUT "NINIMUN'.L 

0531 RETURN 

0540 INPUT "SUPPLIER CQDE'.S 

0541 RETURN 

0550 INPUT "PRICE/UNIT",P$ 

0551 RETURN 

0560 INPUT "LAST ORDER/AHNT",D$ 

0561 RETURN 

0600 REM ADD ITEMS 

0605 PRINT #5,"P 1" 

0610 GOSUB 500:GOSUB 510:GOSUB 520 

0615 GOSUB 5305GOSUB 540:G0SUB 550:GOSUB 560 

0620 GOSUB 60 

0630 INPUT "AGAIN=1",X 

0640 IF X-l GOTO 600 

flAHO RFTIIRN 



0900 PRINT #3, "SUPPLIER CODE# B ;TAB(20>5 "SUPPLIER NAHE":PRINT#3 

0910 PRINT #3, B B ;TAB(20); B ^JNKN0WN , ' 

0911 PRINT #3,"l"5TAB<20)5 B LOCAL" 

0912 PRINT #3,"2";TAB<20)5"I.D.E." 

0913 PRINT #3,"3"5TAB(20);"KAHN PAPER" 

0914 PRINT i3."4";TAB(20);"CODESCO'* 

0915 PRINT #3,"5"?TAB(20);"UNI0N BROACH" 

0916 PRINT #3,"6";TAB<20)i"HYETH" 

0917 PRINT #3,"7";TA8(20)5"SCHEIN" 

0918 PRINT 13, "8"?TAB<20); "DARBY" 

0919 PRINT #3,"9";TAB(20)5"ASR HEDICAL" 

0920 PRINT t3,"10"!TAB(20);"JENSEN B 

0921 PRINT i3,"ir;TAB(20);"PALMERO" 

0922 PRINT #3,"12";TAB<20);"SCHQTT PAPER" 

0923 PRINT #3. "13";TAB(20) 5 "MEDIDENTA" 

0924 PRINT #3,"14";TAB<20); H PERFECTO' 

0925 PRINT #3,"15"?TAB(20);"BELVAC» 

0926 PRINT #3, "16"?JAB(2QM "PATTERSON" 
0930 RETURN 

1000 HOME 

1005 INPUT 'DATA FILE NAME", X$ 

1007 INPUT "NEW FILE NAME",F$ 

1008 PRINT 15. "N "!X$?" "5F* 

1009 PRINT 15, "F 1 "?F* 

1010 LINE* 132 

1015 INPUT "DATE",T$ 

1020 HOME 

1030 PRINT "USE COMMANDS' 

1040 PRINT "l.ADD ITEMS" 

1050 PRINT "2.CHANGE/CHECK DATA" 

1060 PRINT "3.LIST DATA" 

1070 PRINT "4. ITEMS TO ORDER" 

1090 INPUT "CHOICE", X 

1092 IF X>4 GOTO 1020 

1093 PRINT «5,"F 1 ";F* 

1095 ON X GOSUB 600,200,300,400 

1096 PRINT #5,'F ' 

1097 IF A$='END OF FILE" GOSUB 900 
1099 GOTO 1020 



8 



SAMPLE PARTIAL LISTING OF THE ITEMS IN INVENTORY 



ROGER J. SPOTT DBS PA INVENTORY CONTROL SEPTEMBER 9 1980 
I.D.I ITEM ON HAND MINIMUM 



3 

1 

0.3 

5 

1 

2 

2 

5 

200 

100 

100 

ISO 

ISO 

100 

10 

10 

5 

2 

2 

2 






ROLL TOWELS 


2 


1 


PT TOWELS 


6 


2 


NAPKINS 





3 


TOILET TISSUE 


9 


4 


FACETISS 


4 


5 


CUPS 


2 


6 


SOAP 


3 


7 


FILESU08 


10 


8 


FILEStlO 


100 


9 


FILESM5 


150 


10 


FILESI20 


300 


11 


HEDSTR0M#15 


115 


12 


HEDSTR0HI20 


167 


13 


KEDSTR0M#25 


175 


14 


PAPER PTStlS 


17 


15 


PAPER PTS#40 


7 


16 


PAPER PTSI70 


7 


17 


COTT PELLETSSO 


1 


18 


C0TTPELLETSS1 


2 


19 


COTT PELLETSK 


2 





OFINV.AUG:! 




SUPPLIER CODE PRICE/UNIT 


LAST CRDERED/AtflT, 


1 


1.09/2 


7-80/5 


16 


10.50/CASE 


7-80/7 


2 


10.25/CASE 


4-78/1 


3 


23.95/CASE 


8-77/1 


1 


.65/1 


7-80/4 


1 


.95/1 


3-80/3 


1 


.29/1 


3-80/4 


16 


3.95/PK8 


2-80/8 


4 


.531/1 


11-78/450 


4 


.58/1 


12-77/200 


4 


.58/1 




16 


.575/1 


9-78/150 


5 


.566/1 


1-80/42 


2 


.575/1 


11-78/48 


7 


3.25/BOX 


4-80/24 


2 


2.60/BOX 


7-79/24 


2 


2.60.B0X 


12-79/6 


7 


1.90/B0X 


6-80/1 


7 


1.90/B0X 


6-80/1 


7 


1.75/B0X 


10-73/1 



I.D.t ITEM 


ON HAND 





ROLL TOWELS 


2 


2 


NAPKINS 





3 


FILEStlO 


100 


11 


HEDSTR0H#15 


115 


15 


PAPER PTSMO 


7 


17 


COTT PELLETSIO 


1 


21 


2 X2 


24 


22 


GUTTAPERCHA XF 


6 


25 


F.C. 





32 


CAVIT 


15 


37 


FIXER 





40 


BURS 1557 


7 


35 


RUBBER DAM 


8 


64 


R.D.CLAMPS#1 


2 



ITEMS TO ORDER 










EPTEMBEF 


t9 1980 




OFINV.AUG:! 




MINIMUM 


SUPPLIER CODE 


PRICE/UNIT 


LAST CRDEREO/AMNT. 


3 




1 




1.09/2 


7-80/5 


0.3 




4 




10.25/CASE 


4-78/1 


200 




4 




.531/1 


11-78/450 


150 




16 




.575/1 


9-78/150 


10 




2 




2.60/BOX 


7-79/24 


2 




7 




1.90/BOX 


6-80/1 


30 




16 




55.95/CASE 


12-79/1 


10 




7 




5.50/BOX 


6-80/12 


1 




7 




6.35/BOTTLE 


2-79/2 


21 




7 




.99/TUBE 


6-30/20 


1 




1 




2.10/ENVELOPE 


10-79/4 


25 




16 




1.25/1 


1-80/12 


10 




16 




3.35/BOX 


5-80/8 







7 




2.95/1 


6-80/1 



0001 REM THIS LITTLE PROGRAM IS NICE IF YOU HAVE A LIST OF NUMBERS 

0002 REM AND WISH TO RUN A STATISTICAL STUDY OF THEM. 
0005 GOTO 1000 

0010 INPUT "INPUT NUMBER(9999=END)",X 

0020 IF X=9999 RETURN 

0030 LET N-N+l 

0040 LET S=S+X 

0050 LET T=T+X#X 

0060 GOTO 10 

0200 REM CALCULATIONS 

0210 LET M=S/N 

0220 LET V=(N*T-S*S)/N/<N-1) 

0230 LET D=SQR(V) 

0240 LET P=.6745*D 

0250 LET E=SQR(V/N) 

0260 LET C=D/M 

0270 RETURN 

0400 REM PRINTER OR SCREEN OUTPUT 

0401 HOME 

0405 PRINT #Z. "NUMBER ENTIRES'SN 

0410 PRINT #2, "TOTAL SUM=",S 

0420 PRINT #Z,"SUM-SQUARES=",T 

0430 PRINT #Z,"MEAN=",M 

0440 PR I NT #Z , " VAR I ANCE= " , V 

0450 PRINT #Z, "STANDARD DEVIATION=",D 

0460 PRINT #Z, "PROBABLE ERROR=%P 

0470 PRINT #Z,"STANDARD ERROR OF THE MEAN=",E 
0480 RETURN 

1000 GOSUB 10 

1005 GOSUB 200 

1010 INPUT " OUTPUT :SCREEN=1 PRINT=3 ST0P=4",Z 

1015 IF Z=4 STOP 

1020 GOSUB 400 

1030 GOTO 1010 



Roger J. Spott 

a****************************************************************** 

FOR SALE 

BOARDS, ALL IN WORKING ORDER 



KBD2 $50.00 
MEM1 $100.00 
CRT1A $50.00 
SIM1 $75.00 
PIA1A $75.00 
CPU2 $200.00 



TOTAL PACKAGE PRICE $500.00 



GREG L. GRINER 
259 EARLE DR. 
CARLETON MICH. 43117 
(313) 654-6873 



/o 















NAM 




MEM 


















OPT 




SYM,LIS 


Francis E. Donnelly Jr 










* THIS 


ROUTINE 


FOR CSS BASIC 


V4*3 COMPARES MEMEND 


AND 










* VARIABLES END, 


SUBTRACTS THEM, CONVERTS THE RESULT TO 










* DECIMAL 


AND 


OUTPUTS IT AS THE NUMBER OF BYTES LEFT 










* BETWEEN 


THE 


END OF PROGRAM 


VARIABLE STORAGE AND 


THE 










* END OF i 


1EM0RY . 


.PUT CMD HEM 


INTO THE COMMAND TABLE 










* AS 


4D 


45 4D 00 71 B9 






OOOE 








STRHEX 




EOU 




*000E 


TEMP STORE HEX SUBTRACT 


0024 








AFTVAR 




EQU 




$0024 


FIRST ADR AFTER VARIABLES 


0026 








MEMLIM 




EOU 




*0026 


MEMORY LIMIT STORED 


HERE 


E07E 








PDATA1 




EOU 




*E07E 


MON STRING OUTPUT ROUTINE 


E141 








CRLF 




EOU 




*E141 


HON CR/LF ROUTINE 




E1D1 








OUTCH 




EOU 




$E1D1 


MON CHAR OUTPUT ROUTINE 


71AD 












ORG 




*71AD 






71AD 


27 


10 




DECTB1 


- 


FDB 




10000,1000,100,10 




71AF 


03 


E8 


















71B1 


00 


64 


















71B3 


00 


OA 


















71B5 








NUMQUT 




RMB 




1 






71B6 








TEMP 




RMB 




1 




* 


71B7 








TEMPI 




RMB 




1 






71B8 








COUNT 




RMB 




1 














* THE MAIN PROGRAM STARTS HERE 




71B9 


96 


26 




START 




LDA 


A 


MEMLIM 


GET MSB OF MEMLIM 




71BB 


D6 


27 








LDA 


B 


MEMLIM+1 


GET LSB OF MEMLIM 




71BB 


DO 


25 








SUB 


B 


AFTVAR+1 


SUBTRACT LSB'S 




71BF 


92 


24 




- 




SBC 


A 


AFTVAR 


SUBTACT MSB OF VAR, 


END 


71C1 


97 


OE 








STA 


A 


STRHEX 


STORE HEX SUB MSB 




71C3 


D7 


OF 








STA 


B 


STRHEX+1 


STORE HEX SUB LSB 




71C5 


BD 


El 


41 






JSR 




CRLF 


OUTPUT A CR & LF 




7*f#7F 






* THE 1 


•4EX 


NUMBER 


IS CONVERTEH 


i TO DECIMAL HERE 




71 


B5 


DECOUT 




CLR 




NUMOUT 


CLEAR NUMBER FLAG 




71CB 


7F 


71 


B7 


CLRCNT 




CLR 




TEMPI 


SET SUPR O'S FLAG 




71CE 


86 


04 








LDA 


A 


#$4 


LOAD COUNTER VALUE 




71D0 


B7 


71 


B6 






STA 


A 


TEMP 


SET COUNTER 




71D3 


96 


OE 








LBA 


A 


STRHEX 


GET MSB 




71D5 


D6 


OF 








LDA 


B 


STRHEX+1 


GET LSB 




71D7 


CE 


71 


AD 






LDX 




#DECTB1 


POINT TO DECIMAL CONSTANTS 


71DA 


8D 


11 




OUTDEC 




BSR 




OUTDIG 


OUTPUT DECIMAL DIGIT 


71DC 


08 










INX 






BUMP TO NEXT DEC CONSTANT 


71DD 


08 










INX 










7 IDE 


7A 


71 


B6 






DEC 




TEMP 


DEC THE COUNTER 




71E1 


26 


F7 








BNE 




OUTDEC 


CONTINUE TILL DONE 




71E3 


17 










TBA 






GET LS DIGIT 




71E4 


8D 


3A 








BSR 




OUTHR 


OUTPUT IT 




71E6 


CE 


72 


27 






LBX 




♦MEMMSG 


POINT TO MESSAGE 




71E? 


BB 


EO 


7E 






JSR 




PDATA1 


OUTPUT MESSAGE 




71EC 


39 










RTS 






RETURN TO BASIC 





II 











* OUTPUT 


DECIMAL 


DIGITS HERE 




71EB 


7F 


71 


B8 


OUTBIG 


CLR 




COUNT 


CLEAR THE COUNTER 


71F0 


Al 


00 




0UTBI2 


CMP 


A 


0,X 


CHECK THE MSB 


71F2 


25 


OF 






BCS 




0UTDI5 




71F4 


22 


04 






BHI 




0UTDI4 




71F6 


El 


01 






CMP 


B 


1»X 


CHECK THE LSB 


71F8 


25 


09 






BCS 




0UTDI5 




71FA 


E0 


01 




0UTDI4 


SUB 


B 


1,X 


SUBTRACT LSB 


71FC 


A2 


00 






SBC 


A 


0»X 


SUBTRACT MSB 


71FE 


7C 


71 


B8 




INC 




COUNT 


INCR THE COUNTER 


7201 


20 


ED 






BRA 




0UTDI2 


REPEAT TILL < CONSTANT 


7203 


36 






0UTDI5 


PSH 


A 




SAVE A 


7204 


B6 


71 


B8 




LDA 


A 


COUNT 


LOAD THE TOTAL 


7207 


26 


10 






BNE 




0UTDI6 


IS IT ZERO YET? 


7209 


7D 


71 


B5 




TST 




NUMOUT 


SUPRESS ZERO'S? 


720C 


26 


OB 






BNE 




0UTDI6 


NUMBER YET? 


720E 


7D 


71 


B7 




TST 




TEMPI 


NULL? 


7211 


27 


OB 






BEG 




0UTDI8 




7213 


86 


20 






LDA 


A 


#$20 


LOAD A SPACE 


7215 


8D 


OD 






BSR 




0UTHR2 


OUTPUT IT 


7217 


20 


05 






BRA 




0UTDI8 




7219 


7C 


71 


B5 


GUTDI6 


INC 




NUMOUT 


BUMP NUMBER 


721C 


8D 


02 






BSR 




OUTHR 


OUTPUT DIGIT 


721E 


32 






0UTDI8 


PUL 


A 




RESTORE A 


721F 


39 








RTS 
















* NUMBER 


OUTPUT 


ROUTINE 




7220 


84 


OF 




OUTHR 


AND 


A 


#$F 


MASK THE MSB 


7222 


8B 


30 






ADD 


A 


4$30 


ADD BIAS 


7224 


7E 


El 


Dl 


0UTHR2 


JMP 




OUTCH 


OUTPUT THE DIGIT 


7227 


20 






MEMMSG 


FCC 




' BYTES 


LEFT ' 


7228 


42 


59 














722A 


54 


45 














722C 


53 


20 














722E 


4C 


45 














7230 


46 


54 












- 


7232 


20 
















7233 


04 








FCB 




4 





END 



NO ERROR(S) DETECTED 



SYMBOL TABLE: 














AFTVAR 


0024 


CLRCNT 


71 CB 


COUNT 


71B3 


CRLF 


E141 


BECOUT 


71C8 


DECTB1 


71AD 


MEMLIM 


0026 


MEMMSG 


7227 


NUMOUT 


71B5 


OUTCH 


E1D1 


OUTDEC 


71DA 


0UTDI2 


71F0 


0UTDI4 


71FA 


0UTDI5 


7203 


0UTDI6 


7219 


0UTDI8 


721E 


OUTDIG 


71ED 


OUTHR 


7220 


0UTHR2 


7224 


PDATA1 


E07E 


START 


71B9 


STRHEX 


OOOE 


TEMP 


71B6 


TEMPI 


71B7 



n 



NAM 
OPT 



PL 1ST 
PAGfLIS 



Francis E. Donnelly Jr. 



* THIS ROUTINE FOR CSS BASIC V4.3 PROVIDES PAGE LIST 

* FUNCTION* CURRENTLY SET FOR 59 LINES IN AN 11 INCH 

* PAGE. 

PLIST FLAG! 00=OFF» 01=ON 

LINE COUNTER TEMPORARY 

TEMP X REG STORAGE 

TEHP A REG STORAGE 

TEMP B REG STORAGE 

CSS BASIC OUTPUT ROUTINE 

ENTER PBATA1 ROUTINE 

LOAD X FROM INDEX REG STACK 

START OF CSS BASIC LIST 

* THIS IS CSS BASIC V4.3 CR/LF ROUTINE MODIFIED BY 

* PLACING A JMP TO PLIST TEST ROUTINE AT ITS END 



0006 


PLFLAG 


EQU 


*0006 


0007 


LINCNT 


EQU 


$0007 


0008 


XTEMP 


EQU 


U0008 


OOOA 


ATEMP 


EQU 


*000A 


OOOB 


BTEMP 


EQU 


4000B 


01F1 


OUT 


EQU 


*01F1 


02BC 


CRLF2 


EGU 


*02BC 


0313 


LODIDX 


EQU 


40313 


0BA1 


LIST 


EGU 


40BA1 



02D1 

02D1 8B E9 
02D3 OD 
02D4 OA 02 
02D6 00 
02D7 7E 01 40 



ORG S02B1 

CRLF1 BSR CRLF2 OUTPUT CRLF STRING 
FCB *D»*A*2»0 



JHP PLSTST GO SEE IF PLIST IS ON 

* THIS ROUTINE REPLACES JUMP TABLE ADDRESSES NOT 

* USED AND PROVIDES A TEST TO SEE IF PLIST IS ON. 

* IF IT IS* LINCNT IS TESTED FOR ZERO. IF NOT ZERO* 

* EXECUTION OF LIST CONTINUES UNTIL LINCNT=00 . THEN 

* A JSR TO THE PLIST ROUTINE IS MADE AND LF'S ARE 

* OUTPUT TO ADVANCE TO THE TOP OF THE NEXT PAGE. IF 

* THE PLIST FLAG IS OFF* NORMAL LISTING EXECUTES. 



0140 

0140 36 

0141 7D 00 06 
0144 27 OD 
0146 96 07 

0148 4A 

0149 97 07 
014B 26 06 
014D 32 

014E BD 75 CC 
0151 20 01 

0153 32 

0154 7E 03 13 



ORG 

PLSTST PSH 
TST 
BEQ 
LDA 
DEC 
STA 
BNE 
PUL 
JSR 
BRA 
NOPE PUL 
NXTPG JMP 



*0140 



PLFLAG 

NOPE 

LINCNT 

LINCNT 
NOPE 

ADVPAG 
NXTPG 

LODIDX 



SAVE A 

SEE IF PLIST FLAG IS ON 

NO. BO NORMAL LIST. 

YES* GET LINE COUNT VALUE 

DECREMENT IT 

SAVE NEW LINE COUNT 

BRANCH IF LINCNT NOT ZERO 

LINCNT ZERO. RESTORE A 

AND OUTPUT LF'S TO NEXT PAGE 

RESTORE A 

GET X AND CONTINUE LISTING 



13 



PLIST 



TSC MNEMONIC ASSEMBLER 



PAGE 



* THIS IS START OF PLIST ROUTINE LOCATED IN UPPER RAM* 

* UPON ENTRY THE PLIST FLAG IS SET 'ON'r LINCNT IS SET* 

* AND A HEADER OF 4 LF'S IS OUTPUT* A JSR TO CSS BASIC 

* LIST ROUTINE IS THEN EXECUTED* 



75AE 



ORG 



*75AE 



75AE 86 01 


PLIST 


LDA A 


*$01 


75B0 97 06 




STA A 


PLFLAG 


75B2 86 3C 




LDA A 


*$3C 


75B4 97 07 




STA A 


LINCNT 


75B6 C6 04 




LDA B 


«04 


75B8 8D 2D 




BSR 


OUTLF 


75BA BD OB Al 


/ 


JSR 


LIST 



LOAD PLIST ON FLAG VALUE 
AND SET FLAG 
LOAD LINCNT VALUE 
STORE PAGE LINE COUNT 
SET FOR 4 LF HEADER 
OUTPUT HEADER LINE FEEDS 
GO LIST PAGE 



* THIS IS ENTRY POINT AT BOTTOM OF PAGE OR END OF 

* LISTING WHICHEVER COMES FIRST* IF END OF PAGE, 

* LF'S ARE OUTPUT TO ADVANCE TO TOP OF NEXT PAGE* IF 

* END OF LISTING, LF'S ARE OUTPUT TO THE BOTTOM OF THE 

* CURRENT PAGE FOR AN 11 INCH FINAL PAGE LIST* 



75BD 7D 00 07 

75C0 27 OA 

75C2 8D 15 

75C4 D6 07 

75C6 8D IF 

75C8 7F 00 06 
75CB 39 



TSTCNT TST LINCNT SEE IF LINCNT IS ZERO 

BEQ ADVPAG LF TO TOP OF NEXT PAGE 

BSR SAVXAB LIST DONE, NOT BOTTOM OF PAGE 

LDA B LINCNT GET LINE CNT REMAINING 

BSR OUTLF OUTPUT LF'S TO PAGE BOTTOM 

CLR PLFLAG CLEAR PLIST FLAG 

RTS ALL DONE, RETURN TO CMD MODE* 



* OUTPUT LF'S TO TOP OF NEXT PAGE 



75CC 8D OB 
75CE C6 09 
75D0 8D 15 
75D2 86 3C 
75D4 97 07 
75D6 8D 08 
75D8 39 



ADVPAG BSR SAVXAB 

LDA B *$09 

BSR OUTLF 

LDA A #«3C 

STA A LINCNT 

BSR LODXAB 
RTS 



SAVE X,A, & B 

LOAD B WITH 9 LF COUNT 

OUTPUT LF'S TO TOP NEXT PAGE 

RE-INITIALIZE PAGE LINE COUNT 

STORE IT IN LINCNT 

RESTORE X,A, & B 



* HERE XrA, & B ARE SAVED WHILE LF'S ARE OUTPUT, 



75D9 DF 08 
75DB 97 OA 
75DD D7 OB 
75DF 39 



SAVXAB 



STX 
STA A 
STA B 
RTS 



XTEMP TEMP STORE X 
ATEMP TEMP STORE A 
BTEMP TEMP STORE B 



H 



PLIST 



75E0 DE 08 

75E2 96 0A 

75E4 D6 OB 
75E6 39 



TSC MNEMONIC ASSEMBLER 

* HERE X»A» & B ARE RESTORED AFTER LF'S OUTPUT* 

LODXAB LDX XTEMP RESTORE X 

LDA A ATEMP RESTORE A 

LDA B BTEMP RESTORE B 
RTS 



PAGE 



* THIS IS THE SUBROUTINE TO OUTPUT LF'S, THE NUMBER OF 

* LF'S IS DETERMINED BY UALUE OF B-REGISTER AND IS 

* EITHER 09 FOR ADVANCE TO NEXT PAGE OR THE VALUE 

* LEFT IN LINCNT ($0007) IF END OF LIST WITH BOTTOM 

* OF PAGE NOT REACHED, 



75E7 


86 OA 


OUTLF LDA 


A 


#$0A 


75E9 


8D 04 


MORE BSR 




OUTS 


75EB 


5A 


DEC 


B 




75EC 


26 FB 


BNE 




MORE 


75EE 


39 


RTS 






75EF 


BD 01 Fl 


OUTS JSR 




OUT 


75F2 


39 


RTS 
END 








NO ERROR<S) DETECTED 







LOAD A WITH LF 
OUTPUT LF 

DECREMENT B LF COUNT 
DO TILL B IS ZERO 



OUTPUT LINE FEED 



SYMBOL TABLE: 



ADVPAG 


75CC 


ATEMP 


OOOA 


BTEMP 


OOOB 


CRLF1 


02D1 


CRLF2 


02BC 


LINCNT 


0007 


LIST 


0BA1 


LODIDX 


0313 


LODXAB 


75E0 


MORE 


75E9 


NOPE 


0153 


NXTPG 


0154 


OUT 


01F1 


OUTLF 


75E7 


OUTS 


75EF 


PLFLAG 


0006 


PLIST 


75AE 


PLSTST 


0140 


SAVXAB 


75D9 


TSTCNT 


75BD 


XTEMP - 


0008 















rS 

Size for CSS BASIC 

By Robert Grainger, Jeffrey Brownstein and Frank Donnelly 

This routine compares MEMEND and VARIABLES END, subtracts them, 
converts the result to decimal and places the result on the CRT. 

Using the V3N prom routines 

BD 17EC Home 

GE OOOA 

DF 04 

D6 26 

96 27 

90 25 

D2 24 

CE EOOO Screen location 

7E FF64 Binary to Asctl 



CSS BASIC NEW COMMAND TCALL 



BD 09AA 
BD 23D6 
DF FA 
BD 2D03 
BD 17EC 
BD 2461 
7E 2492 



This calls another program: Chan Wai Yung 
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MEDIUM Jiff SOLUTION LIGHT PEN FOB SHEBES 

The object of this project una to conatruct a light pen device 
which would be useful tn selecting options from a menu format on 
the 32 or 64 character 0BT1 screen. It waa further planned that 
the hardware modification should be minimal, 

I purchased some starting hardware from an add tn Byte Magazine, 
The 3G "APPLE PBOFESSIOAL" model light pen costs about thirty dollars 
and does not even come with a schematic or pin connections, I ha d 
specifically asked for these things. It waa easy to find out the 
port pin diagram at my local computer store. As for the circuit, 
there is a photodtode and a two transistor amplifier. The ptns(l ground, 
6 output, 8 five volt supply) are easily hooked up to a PIA output socket 
for initial trials. There is a sensitivity control but even at the most 
sensitive the QBT glare shield must not be covering the screen, I un- 
derstand that most light pens have the same limitation. 

The light pen respondded easily to a blinking cursor so I set out 
to devise some software to use it. The simple approach is to start 
with a dark screen and pasa a curaor across it. Presumably when the 
light ia aenaed by the pen the index regiater contains the location 
on the acreen which ia lit. In reality thia doea not work. The pen 
aenaea light but by the time that the PIA (either input or OA line) 
knowa itjthe aoftware is busy putting curaora far ahead on the screen, 
Al30, if you scan the curaor too fast, it breaks up. If you do n ot 
scan it fast, the screen takes too long to cover, A practical light 
pen should read fast, 

I tried to speed up the hardware by placing a 74123 one shot after 
the transistor output. In the retrtggerable multivibrator mode, this 
chip holds the output and creates much longer pulses (almost one con- 
tinuoua pulae). The idea waa for the PIA to have a better chance of 
reading when the pulae waa there, Thia helped aome but there ia at ill 
a time lag to conquer, I placed a loop of atxty reads to make certain 
that the valid signal was not missed by the PIA, Thi3 alowa down the 
acanning of the acreen becauae after every apot ia lit, there ia the 
wait to see if it has been sensed. 

The solution to this problem was the following: Store the screen 
full of menu items away in a buffer aa a whole acreenfull. Only bring 
back locationa with curaor or printed matter onto the acreen, Thia ia 
pretty faat, A relatively email number of locationa are actually being 
returned on the acreen and being evaluated by the read loop, 

A OSS Baaic program is presented to show how one may determine which 
of three items the light pen pointed at, 

10 HOME 

20 PBINT 0HB$(134); "ITEM 1 " 

30 SKIP 4 

40 PBINT GHB$(134)f "ITEM 2 " 

50 SKIP 4 

60 PBINT CHB$(134)r "ITEM 3 " 

70 PAT 7FF0 427 FF04386FFB7F0 4339 (initialise PIA) 

80 PAT B6F04226FB39 (look for any light) 

90 PAT 7EO000 (goto PEN routine) 

Pen routine storea location of the read tn FE,FF, 

Use PEEK to find out if those locations contain the address of 

the desired item. 
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Figure 1: This fairly simple circuit transforms light from the video monitor 
output into a 771 signal which can be monitored by a program such as that 
shown in figure 2 and listing 1. A typical oscilloscope waveform ofthtf~^t- 
put is shown in the figure. 1 
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**ACTIVE TERMINATOR** 



Bus terminations (specially data bus) will obviously improve the 
reliability of most Sphere systems. A standard passive termination 
works very well but the added power dissipation is of course a 
disadvantage. 

An Active Termination should work equally well while minimizing 
power dissipation. 

The terminator described below uses an LM1308ON IC which is capable 
of sourcing or sinking 250 mA and operating from a single 5V supply. 
With the R2/RN values shown the circuit provides a standard 2.6V/180 
ohm termination. If you require a different termination, select R2/RN 
as required: 



E«-« gin 
rT 



R2= Rl 

( Ein -1 ) 

fit 



The +5 volt lead need not be large, but the ground lead should be a 
heavy guage (18 Min.) short wire to your priae ground. A low Z ground 
lead is a must. A "bonding braid" ground lead may inprove performance 
in some systems. 

REFERENCE: 

1. HOW IMPORTANT IS PROPER TERMINATION, KILOBAUD, APRIL 1979 

2. EXPLORING THE INEQUALITY OF BUS BUFFERS, KILOBAUD, OCT. 1979 
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INEXPENSIVE COLOR GRAPHICS (AND ALPHANUMERICS) 

There is a game/computer on the market which contains a 6800 QPU 
as well as IK of static ram and some rom. This small module also 
contains a power supply and an entire color TV modulator section. 
The game attaches to the antenna terminals of the color (or Bfw) 
set. The game is called "Imagination Machine", 

Designed to sell as a whole computer, the basic above described 
section mates with a keyboard/cassette recorder section. One can 
purchase the 3mall module alone for only $99 and a complete technical 
manual with schematics is available for a dollar or two from the man- 
ufacturer. 

What I am proposing is that one can easily hang the IK static ram 
dual port memory on any 6800 bus and access the rom graphics routines 
possibly as well. The Internal 6800 would be removed from Its socket 
for this application. 

There is clever usage of the IK ram In that 500 bytes are used to 
represent screen locations while the other 500 are used to set up 
various character forms. This makes for medium level resolution 
but is rather easy to manipulate when doing the programming. Letters 
and numbers are easily displayed In various colors. 

Since the Imagination Machine Is Intended for department store 
distribution, it may possibly be available at a discount during the 
Christmas season. Another possibility is that many of these were 
sent to computer stores for evaluation without charge. My local 
store gave Its sample back to the rep but they may be able to get 
It back. These samples sometimes "disappear " while being evaluated. 
One dealer tried to return the sample but was told to hold on to It 
indefinitely until disk drives come out for this machine. 

The Imagination Machine does pretty well as a black and white 
graphics system and presents the colors in various shades of grey. 
Some day a color TV may come your way with a jammed tuner or no 
sound. This would certainly reduce the cost, La3t week I saw a 
surplus color monitor for only $125 but it was only a 9 Inch screen. 
For color graphics I feel that a much larger viewing area would be 
more appropriate, 

Jeff 
WANTED: a KEYBOARD 2 

WANTED: tape of Programma HOME ACCOUNTING program, I still have 

the Instruction sheet but have lost the cassette containing 
this program, 

Jeff 
WANTED: Articles for the Newsletter 
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FDOS 1 DISK MODULE 

I have written a module which goes in high memory or Mom and allows 
any calling program to allocate, delete or examine files on either 
disk drive. Previously available modules, specifically DISPDISK 
and EDITOR, took up lots of ram space and could not run at the same 
time as applications, I have Basic call the module to enable me 
to allocate files etc, while a Basic program and the interpreter are 
in memory, 

HASHING MODULE 

I have written a machine code module which is accessed by Basic and 
which provides a two byte hashed address from a string of any size. 
This can be used for random access schemes to provide fast disk sector 
storage and retrieval. 

These program listings are available if 
anyone can use them, 

Jeff 



IF YOU HAVE NOT SENT IN YOUR 

RENEWAL CHECK THIS ISSUE WAS 

SENT TO YOUFREE AND WILL BE YOUR 
LAST ISSUE. 



Al 



2510 Broadway- 
Big Spring, Texas 79720 
September 10, I960 



Dear Roger, 



This summer I got Jeff's Spherei^ed version of the Canadian 
Pascal running in my machine with only one stumbling block— 
I need to link it to my printer routine and I don't know 
where the locations are that get utilized when Pascal sees 
a WRITE or WRIT2LN. I need to know also whether Pascal 
expects to pass characters to the print routine or whether 
it passes beginning and ending addresses of trie string to be 
printed and lets the print routine get its own characters. 
I assume it puts a single character in the A register and 
then does a JSR but I don't know where that JSR is. Perhaps 
you or one of the Newsletter readers can help me through this 
problem. 

I haven't worked on it in quite a while because I've been 
getting myself a MECA BETA-1 and am now in the process of 
making its interface connections to my -PIM-5 board. I ap- 
preciate the work of Larry Sambuco on this and the help he 
gave me. When I get it working I'll send a report and a 
listing of ray driver program, if I succeed in getting one 
different from Larry's. The step after that will be to put 
it on a PROM. I had thought of just replacing the cassette 
driver routines but it would be nicer to put a PROM board in 
the address space like from D000-DFFF and develop a real 
operating system. Are Sohere PROM boards still available 
anywhere? If so I would like to know who has one and at 
what price. An unpopulated one and a set of schematics would 
be about my speed tool 

Thanks for your efforts with the newsletter — I hope it can 
be kept viable as our Spheres age. You might mention in the 
next newsletter whether Matteson is still willing to supoly 
spare parts — haven't heard much about him in recent newsletters, 

Sincerely, 

Joseph Dawes 




